﻿Imports System.Drawing
Imports System.Windows.Forms

Public Class EntityVisualizerForm

    Private Sub ButtonClose_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonClose.Click
        Me.Close()
    End Sub

    Private Sub dgvData_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs) Handles dgvData.CellFormatting
        Dim drv As DataRowView = DirectCast(dgvData.Rows(e.RowIndex).DataBoundItem, DataRowView)
        If (drv("Modified").ToString.ToLower = "true") Then
            ' apply different format on changed data
            Dim font As New Font(dgvData.Font, dgvData.Font.Style Or FontStyle.Bold)
            e.CellStyle.Font = font
        End If
    End Sub

End Class